<script>on mouseUpglobal saveaScriptput empty into saveaScriptset lockmessages to trueput false into noWindput cd fld "patch1" into myNewHndlrput cd fld "patch2" into mynewHndlr2put the long name of this cd into whereIwasput "" into doneOKput the userLevel into savedUserLevelset userLevel to 5start using stack "Online Servant Stuff"if the result is not empty thenanswer "I can't find stack Online Servant Stuff, and I need it to make the update. Sorry."exit mouseUpend ifanswer "First, please open the “Online Servant Stuff” stack of 1.26d if you have it,"¬& " or 1.26c if that's the latest version you have."answer file "Where is “Online Servant Stuff” of 1.26c or d?" of type stackif the result is not empty or it is empty thenanswer "Update canceled because we didn't get to Stuff stack."exit mouseUpend ifgo stack itif the result is not empty then exit mouseUpif there is not a cd fld "Version" thenanswer "This is not an Online Servant Stuff stack"exit mouseUpend ifput cd fld "Version" into theVersif word 3 of theVers is "e" thenanswer "This stack has already been updated."exit mouseUpend ifif word 2 to 3 of theVers is not "1.26 c" and word 2 to 3 of theVers is not "1.26 d" thenanswer "This is not version 1.26c or d of the Stuff stack. This is version " & ¬word 2 to 3 of theVersexit mouseUPend if-- ready!go cd "settings"if the hilite of cd btn "Save text archives in:" thenif cd fld "folderPath" = "" thenanswer "You haven't specified a folder to save text archives in. Text archiving"¬& " will be turned off (see updater text)."set the hilite of cd btn "Save text archives in:" to falseend ifend ifgo to bg "Board Control"hide fld "Command 1"go cd 1put the script of this bg into myScriptput putHandler(myNewHndlr,myScript) into myScriptput whichline("on logOff2",myScript) into onLineif onLIne > 0 thenput whichLine("if myCode",myScript,onLine) into dumpLineif dumpLine > 0 thendelete line dumpLine to dumpLine + 1 of myScriptend ifend ifput whichline("on firstTimeUser",myScript) into onLineif onLine > 0 thenput whichLine("Tech 1",myScript,onLine) into dumpLineif dumpLine > 0 thenput mynewHndlr2 into line dumpLine + 1 to dumpLine + 2 of myScriptend ifend ifset the script of this bg to myScript--fix readonmoveput the script of this stack into myScriptput whichline("function readOnMove",myScript) into onLineif onLine > 0 thenput whichLine("return -1",myScript,onLine) into dumpLineif dumpLine > 0 thendelete line dumpLine + 1 to dumpLine + 2 of myScriptset the script of this stack to myScriptend ifend ifif doneOK = "" thengo cd 1put "e" into word 3 of theVersput theVers into cd fld "Version"answer "Update complete. Thank you for bearing with us."else answer "Unable to update. Error: " & doneOK & ". Please patch a fresh copy of 1.26d."go whereIwasstop using stack "Online Servant Stuff"set the userLevel to savedUserLevelset lockmessages to falseend mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>14</left>
<top>103</top>
<right>293</right>
<bottom>235</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>patch1</name>
<script></script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>12</left>
<top>28</top>
<right>286</right>
<bottom>119</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>patch2</name>
<script></script>
</part>
<content>
<layer>card</layer>
<id>1</id>
<text><span class="style3">his will update Servant </span><span class="style4">1.26d</span><span class="style3"> to be compatible with a change in GEnie protocol scheduled for 5/3/93. Just run this one time (by clicking the button below). Go ahead and do this now—the updated version will still work under the old GEnie protocol prior to the change.If you have Servant </span><span class="style4">1.26c</span><span class="style3">, and are able to send mail with it, and have no plans to change break key settings, you can use this to update it, but you will not be protected from potential break key problems until the next upgrade of Servant (to be extra safe, run the "d" update (file 3574) before running this one.If you have </span><span class="style4">any older version</span><span class="style3">, or none at all, upload file #3573 and then run this updater on it.</span><span class="style4"> Changes in this update:</span><span class="style3">• Flexible sign-on procedure to work under new GEnie protocol (as well as old).• Auto-redial if busy feature added.• Extra packet data coming from GEnie won't faze it.• Hides "command 1" code field if it was visible• Turns off archiving if no folder was selected (was on in 1.26d). To select a folder, click the blank just under the checkbox called "Save text archives in:" on the Main Settings card. Servant puts dozens of files in that folder, and it may take the Finder a long time just to open it. If archving was turned on with no folder selected, Servant would store all the archive files in the folder with your HyperCard application. (Archiving will be improved in the future.)• Fixes bug in baud rate setting from New User Interview.</span><span class="style4">Tech info for those who have changed scripts: </span><span class="style3">This update completely replaces the "logon2" handler in the Stuff background 1 script. Any changes you have made to that handler will be lost (but busy-redial is added!).A couple of lines are deleted from the "readOnMove" and "logOff2" handlers, but it is unlikely that these will interfere with changes you may have made.Again, I reget any inconvenience you may have experienced as a result of this change. I'm working on file transfers and will keep you posted in Category 26 (480;1). Keep on communicat'n! --Paul CollinsPortions of this stack are used with permissionfrom the book "Cooking with HyperTalk 2.0",copyright 1990 by Dan Winkler and Scott Knaster.</span></text>
<text> put word 1 of it & "," & myBaud into item 1 to 2 of cd fld "modemConfig" send "mouseUp" && quote & cd fld "modemConfig" & quote to cd btn "Default Modem Settings"</text>
</content>
<name></name>
<script>function reWrite3 tScriptget whichline("y = 3",tScript,0)if it = 0 then return emptyif "P1.25a" is in tScript then return tScriptput "put true into line 12 of miscOs --P1.25a" & return before line it of tScriptput return & "& " & quote & ")." & quote & " after fld " & quote & "Text" & quote & ¬" of card startingCard" & return & "end if" after line it + 16 of tScriptput return & "put return & " & quote & "No messages found (pg " & quote & ¬" & item 1 of pageNow ¬" after line it + 16 of tScriptput return & "if line 12 of miscOs is true then" ¬after line it + 16 of tScriptreturn tScriptend reWrite3</script>
